--migração do título pagos
set identity_insert ContaReceber on 
insert into ContaReceber(
Codigo,
CodTipoConta,
NomeTipoConta,
DataMovimento,
DataVencimento,
CodCliente,
Valor, 
Parcela,
TotalParcela,
Observacao,
DataPagamento,
ValorPago,
TipoPagamento,
DataHoraUltimaGravacao,
UsuarioUltimaGravacao,
CodVendaC
)
select 
rec.Codigo_rec,
1,
'VENDA',
rec.DataMov_rec,
rec.Vencto_rec,
rec.Codigo_cli,
rec.Valor_rec,
rec.Parcela_rec,
rec.TotParcela_rec,
rtrim(ltrim(substring(rec.Observ_rec,1,200))),
rec.DataPgto_rec,
rec.ValorPago_rec,
rtrim(ltrim(rec.TipoPgto_rec)),
GETDATE(),
'MIGRAÇÃO',
Cupom_mvc
from Dados_db..Receber_tb as rec
where rec.DataPgto_rec is not null
and rec.Codigo_emp = 2;
set identity_insert ContaReceber off;


--retira valor negativo
delete from ContaReceber
where Valor = -0.01;

update ContaReceber set CodEmp = 1

update ContaReceber
set NomeCliente = OutraTabela.Nome
from (select Nome, Codigo from Cliente) as OutraTabela
where OutraTabela.Codigo = ContaReceber.CodCliente